home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8404.d64 / spr.move demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  695b  |  24 lines
  1. 200 PRINT"[147]":V=53248:SYS49700
  2. 210 FORN=0TO125:READQ:POKE49900+N,Q:NEXT
  3. 215 FORI=2040TO2047:POKEI,13:NEXT
  4. 220 POKEV+23,255:POKEV+29,255
  5. 230 G=V:FORI=0TO7:X(I)=G:G=G+1:Y(I)=G:G=G+1:NEXT
  6. 240 FORI=0TO7:POKEX(I),120:POKEY(I),120:NEXT
  7. 250 FORI=0TO7:POKEV+39+I,1:NEXT
  8. 260 !VAL1,0:POKEV+21,255
  9. 270 !RUN0,2,5:!RUN1,1,8:!RUN2,3,10:!RUN3,4,0
  10. 280 !RUN4,6,255:!RUN5,7,35:!RUN6,8,20:!RUN7,9,4
  11. 290 FORI=0TO15000:NEXT
  12. 300 FORI=0TO7:!STOPI:NEXT
  13. 310 FORI=0TO500:NEXT:POKEV+21,1:R=8
  14. 320 POKEX(0),200:POKEY(0),200
  15. 325 !RUN0,R,50
  16. 330 FORI=0TO200:NEXT:!VAL1,1
  17. 340 FORI=0TO200:NEXT:!VAL1,0
  18. 350 IFPEEK(Y(0))<50ORPEEK(Y(0))>200THENR=10-R
  19. 360 GOTO325
  20. 1000 DATA,,,,,,32,32,32,16,80,64,8,112,128,7,255,,1,252,,,136,,1,140
  21. 1010 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  22. 2000 DATA,,,,,,,32,,,80,,,112,,127,255,240,1,252,,,136,,1,140
  23. 2010 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  24.